3 POKE53281,0:POKE53280,0:POKE32767,13
5 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
10 POKE53272,21:POKE648,4:POKE55,0:POKE56,160:POKE51,0:POKE52,160:GOSUB500
20 GOSUB40000
500 DV=PEEK(186):IFDV<8THENDV=8
505 PRINT"[147]":A$="                                     "
510 B$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
520 POKE214,9:PRINT:POKE646,15:FORI=1TO10:PRINT""B$:NEXT
530 POKE214,11:PRINT:POKE646,11:FORI=1TO7:PRINTTAB(2)LEFT$(B$,34):NEXT
540 POKE214,10:PRINT:POKE646,3:FORI=1TO7:PRINTTAB(3)""LEFT$(B$,34):NEXT
550 POKE214,12:PRINT:POKE646,7:FORI=1TO4:PRINTTAB(5)""LEFT$(A$,30):NEXT
555 POKE214,11:PRINT:PRINTTAB(5)"[158]                              "
560 PRINTTAB(7)"[212]HERE IS NO [204][207][193][196][211][212][193][210] MENU"
562 PRINTTAB(7)"ON THIS SIDE.  [212]RY ANOTHER"
565 PRINTTAB(7)"SIDE AND PRESS A KEY.   "
570 GETA$:IFA$=""THEN570
580 RETURN
10000 OPEN15,8,15,"S0:HELLO CONNECT":CLOSE15:SAVE"HELLO CONNECT",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END